home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / PMAKER65 / archive.z / BUSCAR TEXTO SUPERPUESTO.SPT < prev    next >
Text File  |  1996-11-06  |  1KB  |  78 lines
  1. -- Find Overset Text
  2. -- 1 October 96, vs
  3.  
  4.  
  5. -- Este gui≤n es la implementaci≤n del plugin 
  6. -- "Buscar superpuesto" desarrollado para PM 5.
  7.  
  8. -- It will find all the text which is "overset"
  9. -- in the publication.
  10.  
  11.  
  12.  
  13. sub CurPage
  14. getobjectlist => N,objectlist
  15. getpagenumber => pn
  16. set => overset
  17. loop n=1,N
  18.     set objectlist => nDraw,cType,...,...,...,...,objectlist
  19.     if cType=1
  20.         select nDraw
  21.         textedit
  22.         textcursor +textblock
  23.         gettextcursor >> ...,pos0,...
  24.         textcursor +char,2
  25.         gettextcursor => tc
  26.         set tc >> ...,pos,...
  27.         try settextcursor tc
  28.         getlasterror => err
  29.         if err*(abs(pos0-pos)>1)
  30.             set overset,nDraw => overset
  31.         else
  32.             page pn
  33.         endif
  34. endloop
  35. deselect
  36. loop n=1,len(overset)
  37.     selectextend overset(n)
  38. endloop
  39. return len(overset)
  40. endsub
  41.  
  42. gosub CurPage >> rc
  43. if rc
  44.     return
  45. endif
  46. getpageoptions >> pageoptions
  47. getpagenumbers >> first,nPages,...
  48. last = first+nPages-1
  49. getpagenumber >> pn0
  50. page first
  51. repeat
  52. gosub CurPage >> rc
  53. if rc
  54.     return
  55. endif
  56. page next
  57. getpagenumber >> p,...
  58. until     (p=last)+(p=last-1)*(last%2)*(pageoptions=1,1)
  59. gosub CurPage >> rc
  60. if rc
  61.     return
  62. endif
  63.  
  64. getmasterpagelist >> M,mplist
  65. loop m=1,M
  66. set mplist>> ...,mpname,mplist
  67. page rm,mpname
  68. gosub CurPage >> rc
  69. if rc
  70.     return
  71. endif
  72. endloop    
  73.  
  74. page pn0
  75.  
  76. return unquote("No hay bloques de texto superpuestos en el documento.")
  77.         
  78.